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VORTEX MIDAS W300 


IBM-1130 INSTRUCTION SET EMULATOR, 1/70 IS SIMULATED IN 620 MODE, 


WCS ENTRIES$ FIRST 31. CELLS OF PAGE, 


ENTER AT 1 WITH THE A REGISTER (R 0) = 1130 EMULATED CORE BASE 
ADDRESS FOR LOAD MODE AND THE B REGISTER (R 1) = 1130 WRAPARQUND 
MASK, THE EMULATOR WILL RETURN TO THE CELL FOLLOWING THE LOAD 
MODE CALL FOR ALL 620/F MODE SERVICES, THE X REGISTER (R 2) 
WILL BE SET TO INDICATE THE NECESSARY ACTION, 

X = 0 => AN 1130 WAIT INSTRUCTION WAS DECODED. 

x 1 => AN 1130 XIO INSTRUCTION WAS DECODED; THE B REGISTER 
CONTAINS THE EMULATED ADDRESS FROM THE XIO INSTRUCTION, 

X = 2 => AN INTERRUPT WAS DETECTED IN 1130 MUDE AND 6e0/F 
MODE WAS ENTERED TO PROCESS THE INTERRUPT. THE 620/F P 
REGISTER WAS SET TO POINT TO THE CELL’ AFTER THE LOAD MODE 
ENTRY, SO THAT 1130 EMULATOR 620 MODE SERVICE COULD SEND 
CONTROL BACK TO THE WCS, 

X = 3 => AN ENTRY WAS MADE TO AN IMPROPER LOCATION (0 OR 
5 THROUGH 31) OF WCS PAGE 1, 

X = 4 => A BOSC INSTRUCTION WITH BIT 6 SET WAS EXECUTED 
BY THE 1130 PROGRAM, THIS INDICATES THAT THe INTERRUPT 
LEVEL IS TO BE RAISED, 

X = 5 #2 THE STEP KEY WAS PUSHED, 


ENTER AT 2 TO CONTINUE EMULATION AFTER A HALT, 170 INSTRUCTION 
OR INTERRUPT. THE A REGISTER CR 0) MUST BE RESET TO THE BASE OF 
1130 EMULATED CORE, 


ENTER AT 3 TO CONTINUE EMULATION AFTER A SENSE INSTRUCTION WITH 
B (R 1) EQUAL TO THE DATA TO BE PUT INTO THE 1150 ACCUMULATOR, 
THE A REGISTER (R 0) MUST BE RESET TO THE BASE ADDRESS OF 
EMULATED 1130 CORE, 


ENTER AT 4 WITH B (R 1) EQUAL TO THE 1130 INTERRUPT LEVEL TO 
INTERRUPT THE 1130 PROGRAM. THE A REGISTER (8 0) MUST BE RESET 
TO THE BASE ADDRESS OF 1130 EMULATED CORE. 


ENTER AT 5S TO PUT 1130 A REGISTER INTO 620 A REGISTER, 


ENTER AT 6 WITH A (R 0) = 1130 BASE ADDRESS, 8 (CR 1) = CHARACTER 
AND X (R 2) = BUFFER ADDRESS TO PERFORM 1132 PRINTER SCAN 
X (R 2) IS DESTROYED, 


ENTER AT X'C TO PERFORM MEMORY = TQ = MEMORY BLOCK MOVE, 
CALLING SEGUENCES: 

BCS PAGE1+C 

PZE/MZE FROM MZE = ALL FROM ONE WORD 

PZE/MZE TO MZE = ROTATED LEFT 4 BITS 

DATA LENGTH 

RETURN HERE WITH A (R Q) = ZERO, 


ENTER AT D TO SEARCH A TRANSLATE TABLE WITH A (R 0) = WORD TO 
SEARCH FOR, B (R 1) = TABLE ADDRESS, THE FIRST WORD OF THE TABLE 
IS EXPECTED TO BE THE TABLE LENGTH, AFTER THE SEARCH, 6B (CR 1) 

IS SET TO THE RELATIVE LOCATION IN THE TABLE OF THE WORD (1F 

THE WORD IS FOUND), OR IS SET EQUAL TO THE TABLE LENGTH+1 IF 

THE WORD IS NOT FOUND, 
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REGISTERS USED BY THE 1130 EMULATOR: 


0 EQU 


0 


vu oH 


1130 MEMORY BASE ADDRESS (SUPPLIED ON ALL ENTRIES). 
NOTES RO MUST BE THE SAME ON ALL ENTRIES (UNLESS THE 
EMULATED CORE AREA IS RELOCATED), AND MUST BE EVEN UNDER 
ALL CONDITIONS FOR THE DOUBLE*WORD REFERENCE INSTRUCTIONS 
TO WORK PROPERLY, 
EMULATED 1130 ADDRESS: 1130 ADDRESS + R(0). 
NOTE Ri IS NOT ALWAYS THE 1130 EMULATED ADDRESS, BUT IT 
IS ALWAYS SO WHEN IN 620/F MUDE, 
ALL ZEROES, AS IN 620 EMULATION, 
ALL ONES, AS IN 620 EMULATION, 
STATUS REGISTER SAVE, 
1130 WRAPAROUND MASK SUPPLIED BY THE 620 B REGISTER (R 1) 
ON THE LOAD MODE ENTRY, 
1130 ACCUMULATOR, 
1130 EXTENSION, 
P SAVE FOR 620/F MODE, 
P SAVE FOR 1130 MODE DURING 620/F MODE SUPPORT, 
1130 BASE ADDRESS 
EMULATED 1130 ADDRESS 
STATUS REGISTER SAVE AREA 
1130 WRAPAROUND MASDK 
A 1130 ACCUMULATOR 
B 1130 EXTENSION 
C P SAVE FOR 620/F MODE 
D P SAVE FOR 1130 MODE DURING 620/F MODE SUPPORT 
E USED FREELY AS WORK REGISTERS, AARDWARE REQUIRES 
F Wi=X'e& AND W2=X'F FOR MULTIPLY AND DIVIDE, 
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0 JUMP 
PAGEL 
PPP 
VINT1 
VSS2M 
VSS35M 
x 

* 

* 


CTCALL 


* 
* 
* 


GETTAG 


* 
* 
* 


GETTGL 


WAITM 


EQU 0'00100 DECODER JUMP BASE ADDRESS 

EWU X'200 

EWU X'400 FORTRAN FIRMWARE PAGE, 

EQU X'D1 FIRST STEP OF 620/F INTERRUPT SERVICE, 
EQU X'BY 620 MODE STANDARD STATE SSe. 

EQU X'2D 620 MODE STANDARD STATE SS3M, 


CONDITION TEST ROUTINE CALL MACRO 


MAC 

GMSK /FC(CTESTS),2°01),FS4,GFe,LB35,FF7, FSCO), 
CMKO100,AK8 RGeX'100,SAMPLE 

EMAC 


GET TAG BITS TO OPERAND REGISTER, SAMPLE ALU, 


MAC 
GMSK /N(P(1)),GFe,LBe,FFA,RF3,MKFCFF 
EMAC 


TAG => OPR, SAMPLE ALU 


GET TAG BITS TO OPERAND REGISTER, SAMPLE ALU, IFCP), INCP 
MAC 

GMSK /N(P(01)),SFe,GF2,IM6,LBe,FFA,RF7,MKFCFF 

EMAC 


ORIGIN AT NEXT MULTIPLE OF P(1). 


MAC 

ORG x+#P(1)=4 

ORG x/P(1)*P(1) 

EMAC 

SPECIAL CASE OF MORG, 

MAC 

MORG 2 ORIGIN AT NEAT EVEN LOCATION, 
EMAC 


ILLEGAL INSTRUCTIONS ALL BECOME WAITS, 


MAC 
GEN /NCE620M),FF3,MF1,WR1,AA2 
EMAC 


ZERO => 620 X, 
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OSTOO0Q000635AFFFCO 


199000018801000C 


184809020190000D 


QOLOQ00000A9001A 


1870000180910001 


0168090404 A900A0 


OABBD4OCESIFFDFO 


OSTOQD0006S5AFFFCO 
OSTOOOQO063AFFFCO 
OS7OO0Q00063AFFFCO 
OSTOO000063AFFFCO 
OS7TOO0Q00063AFFFCO 


0948040484000000 


00C7800000801000F 
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131 
132 
133 
134 
1355 
156 
137 
136 
139 
140 
141 
14e 
143 


VORTEX MIDAS 
* BCS ENTRIES, 
* 
GMSK =—-_- /N(EG20MV),LB3,RF3,FFA,MKFFFC 3 => OPERAND REGISTER 
FOO TOO RO ROTOR OO TORO RIOR TOI ROR ROR ROR ROR TO TO IR OOROR KR RK ok 


~ > 
* 1130 LOAD MODE ENTRY POINT, x 
x * 
LMODE1 GEN /P(LMODE@+PAGEL1),IM3,LAL*¢WRI1,AAC  620(P) ARC * 
HTT TO TO OO ORK OK ROR KORO ORO KK KKK KKK KK 
* * 
* ENTRY POINT TO CONTINUE 1130 PROGRAM, x 
A * 
RETURN GEN /PCENTR*#PAGE1),SF2eGF4,IM4,RF1,FF9,AAD RO*#RDe>P,IFCALU) * 
He KO RK OK TOK KKK IK KIKI RKE KEKE KKK RRR KKK KKKKK KKK KKK 
* X 
4 ENTRY POINT TO CONTINUE THE 1130 PROGRAM WITH NEW ACCUMULATOR k 
* ’ 
RETRNA GEN /NCRETURN) ,~FFA,MF1,WR1,861,AAA R1l=>RA ~ 
He TOR RO TOK ROO ROI OR OR OOK KIO KK TOK RRR KKK KR KKK AK KKK 
* * 
* ENTRY POINT TO INTERRUPT 11350 TO LEVEL IN 620 B, * 
© * 
INTEN GEN /PCINTENO#PAGE1), IM3,FF9O2WR1,AAL RORL PRI * 
FORO OOOO RRO IO ORR RRO URI RIOR IORI IRR Kok KR OR 
rs « 
+ ENTRY POINT TO PUT 1130 A REGISTER INTO 620 A REGISTER, 


x 
GETREG GEN /P(VSS3M),SFe,GF4,1M8,RF4O,FFA, 
CMF1,WR1,BBA,AA0 

FOR IO ORO OR OO IOI III III IO III II III IOI III IO IO IOI TOI II IOK 
k 
* ENTRY POINT FOR PRINTER SCAN, 
k 


PSCAN1 GMSK 


RAw=>R0, INCP, IF (P) 


* 

* 

* 

* 

* 

k 

* 

x 
/N(PSCAN2),SF1,1M5,L83,RF5,FF9, BASE+S52">0PR, UFCALU) * 
CMKFFDF * 
FORO IORI III IOI IOI OR OI III GI IO III IR IIOIO IOI III III III IORI I IO 
* 

* 

* 

+ 

* 

* 

* 

« 

* 


x 


‘ ILLEGAL ENTRANCES, 
x 
GMSK /N(E620MV) ,~LB3,RF3eFFA,MKFFFC 3% => OPERAND REGISTER 
GMSK /N(E620MV),LB3,RF3,FFAyMKFFFC 3 => OPERAND REGISTER 
GMSK /N(CE620MV),LB3,RF3-FFA,MKFFFC 3 => OPERANO REGISTER 
GMSK /N(CE620MV),LB3,RF3,FFA,MKFFFC 3 => OPERAND REGISTER 
GMSK /NCE620MV),-LB3,RF3pFFA,MKFFFC 3 => UGPERAND REGISTER 
KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEKE RK KKK KEKE KKKKKKK KKK KKK 
* * 
* ENTRY POINT FOR MEMORY = TO = MEMORY BLOCK MOVE, . 
 * * 
MBM GEN /N(MBM1),SF1,1M9,RF4 AF (P),INCP A 
KEK KKK KKK KK RE KEK KEK KEKE KEKE KK KER KEKE RE KEKE KEK KEK KKK KKK KEKE KRKEKKEKKKKKKKKKEKKK 
* * 
« ENTRY POINT FOR TABLE SEARCH, | * 
* * 
XLATE GEN /NCXLATEL) »LAL,/WR1,24(We) P=>wWwe ‘ 
KEK K KKK KKK KK KKK KKK KKK KKK KEK KK KKK KEK EKER EK KKK KEKEKKKEEKRKKKKEKKK KKK KKK 
* * 
* ILLEGAL ENTRANCES * 
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OS7TOQ00Q006S5AFFFCO 
OS7TODD00063AFFFCO 
OS7TOQDD0063AFFFCO 
OS7O0000635AFFFCO 
O5S7TO000063AFFFCO 
QS7TOQ0Q00063AFFFCO 
OS7TOD0Q00063AFFFCO 
OS7TOQQ0006S5AFFFCO 
OSTOO0Q000635AFFFCO 


2088000180000000 
2000000180000000 
2008000180000000 
2000000180000000 
2008000180000000 
20£0000180000000 
20F68000180000000 


20F 0000180000000 


20F 6000180000000 
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VORTEX MIDAS 
+ k 
GMSK /N(E620MV),LB3,RF3,FFAeMKFFFC 3 => OPERAND REGISTER * 
GMSK /NCE620MV),LBS,RFSpFFA,MKFFFC % => OPERAND REGISTER x 
GMSK /NCE620MV),LBS,RF3,FFAe,MKFFFC 3 => OPERAND REGISTER * 
GMSK /N(CE620MV),LBS3,RF3-,FFAr,MKFFFC 3 => OPERAND REGISTER »* 
GMSK /N(CE620MV),LBS,RFSp,PFA,MKFFFC 3 => OPERAND REGISTER «x 
GMSK JNCE620MV),LB3,RF3,FFA,MKFFFC 3 => OPERAND REGISTER * 
GMSK /NCE620MV),LBS,RFSeFFA,MKFFFC 3 => OPERAND REGISTER * 
GMSK /NCE620MV),LB3,RFS,FFA,MKFFFC 3 => OPERAND REGISTER * 
GMSK /NCE620MV),LB3,RF3,FFA,MKFFFC 3 => OPERAND REGISTER «x 
FOO OI OR ROR OR ORO IO IO OI III IO OR IOI IOI IOI IR II OR IOI IOI I IOI IOI Ik 
* * 
* FORTRAN DQ INCREMENT (1) * 
* - a 
GEN /PCFRFP4X'17),1IM3 PAGE JUMP & 
DOOR OR IO ORR IOI OO III IO OR ROTOR GIGI I RIOR II IOI IO IOI RIO ok 
* & 
- BYTE STRING FIRMWARE (CBS, MBS) i 
‘ * 
GEN /P(FFP+X'18),IM3 PAGE JUMP * 
TR REREALETALECLTTCLALTALLALT LALLA LE LE LAL LLL 
* * 
* STACK FIRMWARE . 
x * 
GEN /P(CFFP4+X'19),1M3 PAGE JUMP * 
TRRRESESESITTLTTTCLELALILELAELLC LLL LELLLLLE LL LeeLee 
k * 
: DOUBLE LOAD a 
4 * 
GEN /P(FFP+X'1A),1M5 PAGE JUMP * 
FOO IOI IOI I ROI OO IU III IGRI IO III IOI OR RIO I iO Ok 
* “ 
* DOUBLE STORE » 
* * 
GEN /PCFFP+X'18),1M3 PAGE JUMP + 
FOO OIRO OR OR IORI ORR IORI RIOR II IOI IGOR OI III IOI IORI IR IO Ik Ok kok 
k x 
* FLOATING POINT AND DOUBLE INTEGER ARITHMETIC * 
+ « 
GEN /PCFRFP#X'10),1M3 PAGE JUMP * 
TERE AESAETCTEECTTACLALE LLC LIELI LEELA LEELA LE LEE LE LEELA LLL TLL 
+ 2 
* FURTRAN DO INCREMENT (GENERAL) * 
& * 
GEN /PCFFP+X'10),IM3 PAGE JUMP * 
TREE EELALE ELECT LAELIA LALLA LEE LILLE LLL LILLE LLL 
* A 
* UNTANGLE CALLING SEQUENCE (SFSE) x 
« & 
GEN /PCFRFP+X'1E),I1M3 PAGE JUMP k 
TRERELELELLALE LILLE LILLE LEILA LLL LLL ELIE 
* x 
« DOUBLE WORD MOVE * 
GEN /P(FFP+X'1F),1M3 PAGE JUMP x 
TT ESET CCLLCCCCCCCLCCCLCACLATCLICEL LLL ELLE ELITE LE LEILA LLL. 
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0020 


0530040404000000 
OCCOOO0Q06S5AFFFEO 


OBIOOSOLEOBFFFCE 


0790040108660000 
0541000001000001 


0740000080000000 
O748008060BFFFE1 
OBLOOQOOOESAFT7FFO 
O748008060BFFFEI 
DAGBDDDDDNSO04OOA 
O7ANQ000ESAFEFFO 


0898040404000000 
O8A0008060BFFFE1 
OB4004010000000A 
0B2604010000000A 
0788040404000000 
0AB0040404000000 
0868040404000000 
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CONTROL REACHES HERE VIA FIELD SELECT ADDRESSING FROM ADDRESS 


COMPUTATION, 
MORG 52 
EQU 7 


SS2MxX IS IDENTICAL TO SS2M BUT IS PLACED HERE BECAUSE IT APPEARS 
IN A TEST ADORESS WITH BSCl1, 


GEN 
GMSK 
ORG 
GMSK 


ORG 
GEN 
GEN 
ORG 
GEN 
GMSK 


/N(SS3M),SF1,1IM8,RF4 
/NCXI02),LB3,RF3,FFA,MKFFFE 
X1TO01+4 
/N(STS8),SF1,GF4,1M3,L835,FFB, 
CMKFFFC,AKE 
STS7+3 
/N(BSI2),SF1,IM2,LA1,FF6,CF3 
/F(SS1M),2(8),FS7,RF1,AAI] 
BSCi+/7 
/N(CA2),IM1 
/NCADSD2),GFe,LB3,FFB,MKFFFE, AKI 
/JN(S2),1M1,LB3,RF3,FFA,MKF7FF 
/NCADSD2) ,GF2-LB3,FFB,MKFFFE,AK1 
/N(MUL2),RF3,VF1,AAA 
/NCDOIV1),IM1,LB5,RF3,FFA,MKFEFF 
Dit+s 
/N(LOA2),SF1,I1M8,RFA4 
/N(LOD2),GFe,lB83,FFB,MKFFFE,AK1 
/N(STO02),SFi,IM2,AAA 
/JN(STD2),SFi,-IM2,AAA 
/NCAND2),SF1,IM8,RF4 
/N(OR2),SFi,IM8,RFS4 
/N(CEOR2@),SF1,IM8,RF4 


INCP, iF CP) 
1 => OPERAND REGISTER 


OVR(BS)-, RE, S=>ALU 
RESET OVERFLOW 


OVRCOS), PeRO => ALU 
FS(6),Ri=>P 


WAIT FUR OPERAND 
Riel, SAMPLE ALU 
WAIT(M),X'800">0PR 
Riel, SAMPLE ALU 

Ae 20PK,SIGN=>058 
X'100=>0PR, WAIT (MEM) 


IF (P),INCP 

Riel, SAMPLE 
OS(COVR),HOLD RA FOR OS 
OS(COVR)J,HOLD RA FOR OS 
IF (P), INCP 

IF(P), IwWCP 

IF (P), INCP 


mata i i i | 
} k ‘4 eanate 3 i ; M 


1 
| 
| 
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0058 


0058 
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005C 
005D 
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0560000000390002 
056000000039000e 
O4CB800804S5AFCFFO 
O4AQQDBB447AFCFFO 
0O650008045AFCFFO 
5889400000000000 
5889400000000000 
0848000003000008 
0848000003000008 


056000000039000e2 


O4CB008045AFCFFO 
1409008060701008 
1409008060701008 
1409008060701008 


056000000039000e 


O9S800B804S5AFCFFO 
O95SBO00B043AFCFFO 
OC2B008045AFCFFO 
OB9BOBB4S47TAFCFFO 
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0560000000390002 
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DECODER JUMPS TO THE NEXT 64 WORDS, EXCEPT THOSE INDICATED, 


ORG 


OPO00S WAITM 


OPQOL WAITM 


LOSS 
LOSL 
STSS 
STSL 
WAIT 
4 

BSIS 
BSIL 
BSCS 
BSCL 
WAIT 
k 

LOXS 
LOXL 
STXS 
STXL 
MOXS 


MDXL 


GETTAG 
GETTGL 


T GETTAG 


DJUMP 


SHORT 
LONG 


SHIFT1 


EXECUTE I/0 SHORT 
EXECUTE I/0 LONG 


SHIFT INSTRUCTIONS, 


THE NEXT 3 WORDS ARE NOT ACCESSED BY DECODER ADDRESSING, 


ORG 
GEN 
GEN 
GEN 
GEN 
67 WAITM 


SHIFT+4 


JFCLOSRC),2(01),FS5 
JF(LOSRC),2(1),FS5 


/N(STS1),RF3,AA8 
/N(STS1),RF3,AA8 


LOAD STATUS SHORT FSEL(1) 
LOAD STATUS LONG FSEL (1) 
STORE STATUS SHORT R8 => OPK 
STORE STATUS LONG R& => OPR 
OP = 6 OR 7 CILLEGAL) 


THE NEXT $3 WORDS ARE NOT ACCESSED BY DECODER ADDRESSING, 


ORG 
GETTAG 


CTCALL 
CTCALL 
CTCALL 


AB WAITM 


WAILTO7+4 
SHORT 


BRANCH & STORE TAR SHORT 
BSI LONG 
BSC SHURT 
BSC LONG 


OP = A OR B (ILLEGAL) 


THE NEXT 3 WORDS ARE NOT ACCESSED BY DECODER ADDRESSING, 


ORG 
GETTAG 


GETTAG 
GETTAG 
GETTGL 
GETTAG 


GETTAG 


WAITFS WAITM 


WAITTFL WAITM 


AS 


Al, 


ADS 


GETTAG 
GETTGL 


GETTAG 


WAITAB+4 
LOXS1 


LOXL 1 
STXS1 
STXL1 
MDX 


MDX 


SHORT 
LONG 


SHORT 


LOAD INDEX SHORT. 

LOAD INDEX LONG, 

STORE INDEX SHORT, 
STORE INDEX LONG. 

MOX SHORT 

MDX LONG 

OP = F (ILLEGAL) SHORT 
OP = F (ILLEGAL) LONG 
ADD SHORT 

ADD LONG 


ADD DOUBLE SHORT 


TAG => QOPR, 


sie 


| 


nO ay 
A 


=> uu) 
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0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
006A 
006B 
006C 
0070 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
QOO7A 
0078 
007C 
0070 
QO7E 
QO7F 
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O4CB008043AFCFFO 
O4AD0BB447AFCFFO 
O4C8008043AFCFFO 
O4AQQ0BB447AFCFFO 
O4CB00804S3AFCFFO 
O4AD00B8B447AFCFFO 
O4C8008043AFCFFO 
O4AD0BB447AFCFFO 
O4CB00804S5AFCFFO 
O4AQD0BB447AFCFFO 


0560000000390002 


04C8008043AFCFFO 
04A0088447AFCFFO 
04C8008043AFCFFO 
04A0088447AFCFFO 
04C8008043AFCFFO 
04A0088447AFCFFO 
04C8008043AFCFFO 
04A0088447AFCFFO 
04C8008043AFCFFO 
04A0088447AFCFFO 
04C8008043AFCFFO 
04A0088447AFCFFO 
04C8008043AFCFFO 
04A0088447AFCFFO 
0560000000390002 


0560000000390002 


SNYDER 


313 
314 
315 
316 
317 
318 
319 
320 
se} 
322 
323 
$24 
be 
$26 
327 
328 
329 
330 
aos 
552 
202 
334 
335 
556 
337 
538 
339 


340 


ADD DOUBLE LONG 


SUBTRACT SHORT 


SUBTRACT LONG 


SUBTRACT DOUBLE SHORT 


SUBTRACT DOUBLE LUNG 


MULTIPLY SHORT 


MULTIPLY LONG 


DIVIDE SHORT 


DIVIDE LONG 


OP zs 


THE NEXT 3 WORDS ARE NOT ACCESSED BY 


VORTEX MIDAS 
ADL GETTGL LONG 
$$ GETTAG SHORT 
SL GETTGL LONG 
SDs GETTAG SHORT 
SDL GETTGL LONG 
MS GETTAG SHORT 
ML GETTGL LONG 
Ds GETTAG SHORT 
DL GETTGL LONG 
WT1617 WAITM 
* 

ORG WT1617+4 

LDAS GETTAG SHORT 
LOAL GETTGL LONG 
LODS GETTAG SHORT 
LDDL  GETTGL LONG 
STOS GETTAG SHORT 
STOL  GETTGL LONG 
STDS GETTAG SHORT 
STOL GETTGL LONG 
ANDS  GETTAG SHORT 
ANDL GETTGL LONG 
ORS GETTAG SHORT 
ORL GETTGL LONG 
EORS GETTAG SHORT 
EORL GETTGL LONG 
WT1FS WAITM 
WTAFL) WAITM 


LOAD 
LOAD 
LOAD 


LOAD 


16 OR 17 (ILLEGAL) 
DECODER ADDRESSING, 
ACCUMULATOR SHORT 
ACCUMULATOR LONG 
DOUBLE SHORT 


DOUBLE LONG 


STORE SHORT 


STORE LONG 


STORE DOUBLE SHORT 


STORE DOUBLE LONG 


AND SHORT 


AND LONG 


OR SHORT 


OR LONG 


EXCLUSIVE OR SHORT 


EXCLUSIVE OR LONG 


OP 3 


OP = 


IF CILLEGAL) SHORT 


1F (ILLEGAL) LONG 


339 


540 


Cd 
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0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 


0088 
0089 


008A 
0088 


008C 
0080 


OO08E 
008F 
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0148228008070001 
2548368404000000 
LC40A408B00000000A 
0470050063B010086 
340A000000004005 
24068A24000004005 


4409C00000000000 : 


340BA10000000000 


S409680806070001A 
4478324000000000 


6409408060708008 
540BA24000000000 


0408800000004005 
640BA24000000000 


14928224020A90008 
4406B10000000000 


SNYDER 


$42 
543 
344 


VORTEX 


4 
. 
* 
CBS 


CBL 
* 


CTESTS 
CTSTOA 


CTESTS 
CTSTSA 


CTESTS 
CTSTGA 
CTEST2 
CTST3A 
CTEST14 
CTST2A 
CTESTF 
CTST1A 
CTST0B 


CTST38 


CONDITION TEST ROUTINE, 
PASSES, 


MORG 
GEN 
GEN 


EVEN 
GEN 
GMSK 


EVEN 
GEN 
GEN 


EVEN 
GEN 
GEN 
EVEN 
GMSK 


GEN 
EVEN 
GMSK 


GEN 
EVEN 
GEN 
GEN 
GEN 


GEN 


MIDAS 


16 


ON EXIT, DSB=1 IF ANY SELECTED TEST 
AND DSB=0 IF ALL SELECTED TESTS FAIL, 


/T(BSC1,SS2MX),TF2,GFA,LA1L,CF3,WR1,AA1 Ptle>R1,056=>8SC1 


/T(CBL1,SS2M),TF3,SF3,GFA,IM8,RF4 


/FC(CTEST4),201),FS5S9,GF2,AAA 
/N(CTST0B),SF1,GF4,L85,RF3,FFB, 
CMK0100,AK6& 


/F(CTEST3),201),FS8,VF1,AA5 
/S$(CBS,CTEST4),201),FSE,1F2,GF9, 
CVF1,AA5 


/FC(CTEST2),2(1),FS7 
/S(CBS,CTEST3),2C1) -FSE-,TF2,GF7 


/F(CTESTI1),2(1),FS6,-GFe,LB3,FF7, 
CMKO001,AKA 
/TCCTSTSB,CTEST2),TF3,GF9 


/F(CTESTF),2(1),FS5,GFe,LB3S,FF7, 
CMKO800,AK8 
/S(CBS,CTEST1),2(1),FSE,TF2,GF9 


/F(CBS),2e(1),FSE,VF1,AAS 
/S(CBS,CTESTF),201),FSE,TF2,GF9 
/TC(CTSTSA,CTESTS),TF2,GF9, 
CLB1,FFA,MF1,WR1,AA8 
/S(CBS,CTEST2),201),FSE,1F3,5F7 


INCP,O0S8=0=>CBL1; 
DSBs>l[F(P),SS2M 


~—~FS(5),A=>ALU,SAMP 


RESET OVERFLOW, 
RB&FEFF->0PR 


17>0S8,FS(4) 
1->D5S5, 
NOT ALUZ => CTEST4 


FS(3) 
NOT ALUS=-CTESTS 


FS€2), 
RAel, SAMPLE 
NOT ALUZ=>CTST 458 


FS(1), 
RBeX'800,SAMPLE 
A ODD => CTEST1 


FS(10), O=>DS8 
CARRY => CTESTO 
OPRe>R6, 

OVFL => CTESTS 
ALUS => CTEST2 


f | : 
i t SSN ‘ i =: i 3 : } i 


ee e ®@6 
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0090 
00914 
0092 
0093 
0094 


0095 


0096 
0097 


0098 


0099 
QO9A 
0098 
009C 
0990 


009E 
009F 
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017FC40280910001 
0490040280910001 
0498000080A90091 
0480000020B890011 
0448000020A90011 


34B8AE24000890091 


04B880402A0900050 
04000080863000100 


09448000020910011 


O4D0000045AFC000 
64082A42A0900050 
04F 0000008670001 
O4E8O0000A0A90041 
04F8000020910011 


04F 8000020910041 
0480000000B90091 


SNYDER 


375 
376 
Lie | 
378 
379 
380 
$81 
582 


VORTEX 


+ t+ + He 


ADDRE X 


LNGNXI 
LGNXTI1 
LGNXIe 
LONG 
LONGI 


LONGX 
LONGX 1 
. 
LONGXe 
* 

* 

* 
SHORT 
SHORT 1 


5 
SHORTP 


SHORT X 
SHRTX1 
SHRTP 1 
SHRTR1 


MIDAS 


ADDRESS COMPUTATION SUBROUTINES 


COMPUTE EFFECTIVE ADDRESS AND FETCH OPERAND, 


MORG 
GEN 


GEN 
GEN 
GEN 
GEN 
GEN 
EVEN 
GEN 
GEN 


GEN 


COMPUTE EFFECTIVE ADDRESS AND FETCH OPERAND, 


GMSK 
GEN 


GEN 
EVEN 
GEN 
GEN 
GEN 
GEN 


16 ADDREX, LNGNXI 
/FCOP00),2(X'F),MT1,FSF,SF1,1M5, 
CFF9,WR1,AAI 
/NC(LGNXI1),SF1,IM5,FF9,;WR1,AAI 
/NCLGNXI2),IM1,FFA,MF1,WR1,889,AA1 
/NCADDOREX),LBL,FFB,MF1,-WR1,881,AA1 
/NC(CLONG1),LB1,FFA,MF1,WR1,-6381,AA] 
/SCADDREX,LONGX),2(1),FS8,TF2,G6F9, 
CFFB,MF1,WR1,889,AA1 


/N(LONGX1),SF1,IM5,LB1,-FF9,885 
/NCLONGX2),GF2,IM1,RF3,SH1 


/N(LONGI1),LB1,FF9,WK1,B8B1,AA1 


/N(SHORT1),LBe2@,RF3e,FFAPMKFCQOO 
/TCSHORTP,SHORTX),TF2,SF2,GF9,IM5, 
CLB1,FF9,BB5 

F => OF (ALU = TAG+BASE), SHORTX 
/NCSHRTP1),LA1,FF6,CFS3,WR1,AAI 


/NCSHRTX1),1M1,LB81-FFA/MF1,WR1,684,AA1 
/N(SHRTR1),LB1,FF9,WR1,-6B1,AAI1 
/NCSARTRI),LB1,FF9,WR1,BB4,AA1 
/NCADDREX),FFB,MF1,WR1,8B9,AAl 


LONG FORMAT 


REF BY CND FSEL 
R1ltROe>R1, OF CALU) 


RIitKO">R1, OF CALU) 
WALT(MEM), RGe#e>R] 
MIR .WRAPARQUND=>Rk 1 
MIR(SY) => R1 
WRAPARQUND 


RO*OLSE, OF (ALU) 
WAIT(MEM), SAMPLE, 
O=>OPR, 

RL+MIKReaR] 


SHORT FORMAT 


TAG & DISP => OPR 
TEST ALUZ: 
T => SHORTP; 


P-RO => Ri 


WATT (MEM) ,ORSE=>R1 
RL+tMI RR] 
RItORSE=>R1 
WRAPAROUND 


$75 


397 


403 


406 


: 1 4 t , f } j j 
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00A0 
O0A1 
Q0A2 
00A3 


O0A4G 


QOAS 


00A6 
QO0AT 


00A7 
Q00A8 
00A8 


Q0A9 


OOAA 


00AB 
QOAC 
QOOAD 
QOAE 
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QO0A0 
0520040400000000 
OSLOOQQO000A900CE 
051800000067000D 
OSS8000063AFFFDO 


0550040424A80000 


0530040424A90038 


F500014300000000 


7504012709F 10000 


OS7TOD000635AFFFBO 


O4AQD080CSAFCFFO 


0530040404000006 


06880001A0A90002 
056800000867000D 
05A009020100000C 
0560000020A90002 


SNYDER 


406 
409 
410 


VORTEX MIDAS 

* INTERRUPT SERVICE, 
* 
* THE STATES WHICH SELECT THE DECODER ALSO ENABLE INTERRUPTS, IF 
S AN INTERRUPT IS DETECTED, AND AN INTERRUPT IS NOT BEING PROCESSED 
* (CINTF=0), CONTROL GOES TO INTBAS*t7, 
x AT INTBAS4+7, THE I/0 CONTROL STORE MICROPROGRAM IS INITIATED, 
AND THE INTERRUPT IS CHECKED AGAIN, IF THE INTERRUPT SERVICE 
* CAN PROCEED, CONTROL GOES TO INTBAS+#1, IF THE INTERRUPT [5 
+ SUPRESSED BY DMA ACTIVITY, CONTROL GOES TO INIBAS AND THE 
* INTERRUPT IS TRIED AGAIN AFTER THE NEXT INSTRUCTION, 
* 

MORG 16 
INTBAS EGU * 
SS1M GEN /N(SS2M),SF1,1M8 IF (CP) 
INT1 GEN /NCINT2),FFA,MF1,WR1,BBC,AAE RC e>RE 
INTe2 GEN /NCINTS),FF6,CF3,WR1,BB0, AAD RD"ROQ#>RD 
INTS GMSK /N(E6201),RF3,LB5,FFA,MKFFFO e=>QPERAND 
x STANDARD STATE INSTRUCTIONS, 
a SS2M AND SS3M MUST HAVE THE SAME 5 HIGH ORDER BITS? THEY 
. APPEAR TOGETHER IN A TEST ADDRESSING MICRO, 

EVEN 
952M GEN /N(SS3M),SF1,IM8,LB1,RF4,FFA,MF 1 INCP, LF (P),OPR=> 
x SS2eMS DOES: STATUS => R(8), IFCP), INCP 
SS2MS GEN /N(SS3M),SF1,IM8,LB1,RF4,FFA,MF1,WR1,385-7AA86 
* SS3M DOES: SELECT AND RESET INTERRUPT FLAG, ENABLE INTERKUPTS, 
& IBR #2 [, DECQDE, 

EVEN | 
SS5™M GEN /NCINTBAS),1°X'F),GF5,IM6 

ORG INTBAS+7 
IWAIT GEN 2(SS1M),1¢07)-MT1,GF4,MR1,IME, EN INT, DIS VEC, 
* BSCe IS PLACED HERE BECAUSE IT IS REFERENCED WITH SS1IM USING 
x FIELD SELECT ADDRESSING, 

ORG SS1iM+8 
BSCe GMSK /JNCE620MV) ,LB3S,RF3,FFAs,MKFFFS 4 => OPR 
* CBL1 IS PLACED HERE BECAUSE IT APPEARS IN A TEST WITH SSeM 
CBL1 GMSK /NCLONG),GF2,IM1,LBe,FFAsRF3,MKFCFF WAIT(MEM),SAMPLE, 
* IR.X'03500-20PR 
* STDEVN IS PLACED HERE BECAUSE IT APPEARS IN A TEST WITH SSeM 
STDEVN GEN /N(SS3M),SF1,1M8,RF4,AAB INCP,IF(P),B=>ALU 
* STATES E620(XX) ENTER 620 MODE. 
E620I GEN /P(VINTI1),IM3,LB1,FFA,MFi,;WRI,AAe OPKe>R2 (XK REG) 
E620M GEN /N(CE620M1),/LAL,FF6,CF3-,WR1I,AAD ~ PeROQ*>KD 
E620M1 GEN /P(VSS2M),SF2,GF4,I1M4,RF1,AAC RC=>620(P), IF CALU) 
EoeOMV GEN /N(CE620M),LB1,FFA,MF1,WR1,AA2 OPERAND => 620 X, 
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00B0 
00B1 
00Ba 
00B% 


0084 
0085 
0086 
0087 


0088 
00B9 


O0BA 
00BB 
00BC 
00BD 


QOBE 
Q0OBF 


00C0 
00C1 
00C2 
00C3 
00C4 


00C5 
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0OS98000043AFC000 
658ACO002TAIOOILE 
7SF826428090000E 
05F0008080380000 


0520040424A80000 
062000802068000E 
0520040420A80000 
0628000000A90001 


S58BS800043AFC000 
O590000020B9001E 


0520040229900040 
OSCSEO000084A9009E 
05F0000080000000 
O590000000B9009E 


LO0AF24020A9001E 
OSFOO0O000809100E1 


061800802390000E 
O600001868000001E 
0618008023590004E 
25A83E4300000001 
258035C0500000001 


4586BA42A0910051 
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454 
455 
456 
457 
4568 
459 
460) 
461 
462 
465 
464 
465 
466 
467 
468 
469 
470 
471 
47e 
473 
474 
475 
476 
477 
476 
479 
460 
481 
48e 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
495 


VORTEX 


* 
* 


MDXXS1 
MOXXL1 


MDXC1 


MDXXS2 
. 


MDXSKP 
MOXC8 
MDXNI 
MOX 


MD XNX 
MDXNX2 


MDXP 
MOXNX1 
MDXXL3 
MDXXLe2 
MDXCS3 


MDXCe 
* 


MDXC5 
MDXC4 
MDXC6 
MDXC7 


MOXC9 


MDX] 


MIDAS 


MDX INSTRUCTION 


MORG 
GMSK 
GEN 


GEN 


16 MDXXS1, 


MOXXL1 REFERENCED BY CONDITIONAL FSEL 


/N(MOXXS2),LBe,- RF S3,FFArPMKFCOO 
/FCMDXXL3),2(1)-FSB,-LB1,RF7,FFA,MF1, 


CWR1,881,24(W1) 


/T(MOXC2,MDXCS), 


TFe,SFi,GF9,IMS5, 


CFF9,235(BASE),24(W1) 
/N(MOXC3),GFe2,IMi,FF5,MF1 


4 MDXSKP MUST BE EVEN, 


/N(SS2M),SF1,1IM8,RF4,LB1L,FFA,MF1 
/NC(MDXC9),GFe2,LBIL,FFO,MF1,24(W1) 
/N(SS2M),SF1,1M8,LB1,FFA,MFi 
/NCOMOX1),FFA,MF1,WR1,AAI] 


/F(MOXP),2(01),FSE,LBe,RFS,FFA,MKFCOO 
/NCMOXC1),LB1,FF8,MF1,WR1,881,24(W1) 


/N(SS2M),SF1,1M4,L61,LAL,/RF1,FF9,884 
/NC(MOXNX2),IM1,RF4,FFA,MF1,WRI1, 


C25(WRAP),24(W1) 


/NCMDXC3),1M1 


/N(MDXC1),FFB,MF1,WR1,23 (WRAP) ,24(W1) 


/S(MDXC5,MDXC6), 


2(1),F5B8,TFS3,GF9,LB1, 


CFFA,MF1,WR1,8B81,24(W1) 
/NCMDXC3),1IM1,FF9,WR1,23(W1),24( ADDR) 


16 MOXC5, 


MDXC4 REF BY CND FSEL 


/N(MDXC7),GF2,LB1,RF3,FF9,24(W1) 
/N(MOXC5),1IM1,AB3,881,24(W1) 
/N(MOXC7),GFe2,~LB1,RF3,FF9,8B4,24(W1) 
J/T(MOXCB,MDOXSKP),TFS5,SF5,GF9,IM6, 


C24(ADDR) 


/TCMOXNI,MOXSKP),TF3,GF7,SF1,IM6, 


C24(ADDR) 


/SCMDXXS1,MDXNX),201),FSE,TF3,SF2,GF9, 


CIMS,LB1,FF9,WR1,BBS5S,24(ADDR) 


IK & 3FFe>0PR 
MIR=>W1 & OPR, 
FSELC7), INCP 
OF (ALU), BASE+W1 


WAITT(MEM),O=>ALU, 
SAMPLE 


MORG 416 WITH MDXNI,MDXC8& 


IF (P),INCP,OPR#> 
W1 XOR OPR, SAMPLE 
IF(P), OPRe>ALuU 
RQw>Ri 


IR&SFFe>OPR,FS(10) 
MIRW1=>Wi 


P+ORSE->P,1F CALU) 
WALT(M) ,WRAP#=>Wi1, 
INCP 


WALT (MEM) 
WRAP & Wle>wWi 


MIK=>Wl1, 

FSEL(7) IF NO ALUZ 
WAIT(M), 
WI+ADUDR>ADUR 


OPR+Wie?O0PR,SAMPLE 
"MIR"#>BB,WALT(M) 
ORSE+W1=>0PR,SAMPL 
CND OS(CALU), 
ADUR}=>ALU 

OSCALU), 

ADDR? ALU 

CND OF (A),FSEL(10) 
OLSE+ADUDR=>ADDR 


454 
435 
456 
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465 
464 
465 
466 
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466 
469 
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471 
47e 
473 
474 
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480 
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48e 
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090C6 


00C7 
00C8 


QOOCA 
00CB 
00CC 


00CD 


Q0CE 
OOCF 
00D0 
0001 
V0D2 
0003 
0004 
0005 
00D6 
0007 
0008 
0009 
QOODA 
00D8 


00DC 
00DD 


QODE 
QODF 


QOEO 
O0E1 


Q0E2 
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0638000000A9000E 


S6402A42A091205E 
0668000043AFFCO0 


0658000080002005 
0660000020A90011 
0668000063B8FFCO01 


760BC08022670101 


769ABE4407000006 
271ABE44070000068 
2680335001501400A 
O6AK82S5CO00CTOOOE 
2690355001501 DA0A 


16CO2SCO00CTOOOE 


0728000020A90008 


06B000000000200A 
396B8833C0000070001 


66B8033001501200A 
06C8Q0000000200A 
56D833C0000070001 
O6E0000000F10001 
66COSS0015SO19ADA 


0668000000004001 
OOF B0B80S9B00000E 


F500014500000000 
06A0000080670111 


270035FO041D01040A 
2708SFO4IDOLO4OA 


271L03FO041D01AA0A 
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495 
496 
497 
498 
499 
300 
501 
302 
903 
504 
305 
306 
507 
908 
509 
910 
sil 
912 
513 
514 
~ FE. 
316 
aL7 
318 
319 
520 
321 
322 
9235 
224 
225 
526 
S27 
528 
529 
530 
251 
332 
935 
934 
$35 
936 
537 
938 
339 
940 
941 
942 
343 
944 
545 
546 
947 
948 
549 
9590 
351 


VORTEX MIDAS 


. 
* 
k 
SHIFT1 
SHIFT2 


SHF TOF 


SHF TX 
SHFTX1 
SHFTXe 
6 
SHIFTS 
* 


+e & e He 


SHF TL 
SHFTR 


SHFTLO 
SHFTL1 
SHFTLe 


SHF TLS 


SHF TL X 
SHFT11 
SHFT1e 
SHFT13 


SHFT31 
SHFT3e 


SHFDR I 
SHF 133 


SHFMR 1 
SHF TBS 
* 
* 


SS3MX 
SHF TM 


SHF TRO 
SHFTR1 
SHFTRe 


SHIFT INSTRUCTIONS 


THIS IS THE SHIFT COUNT COMPUTATION, 

GEN /NCSHIFT2),FFA,MFi,WR1,AAE RQ => RE 

GEN /TCSHFTOF,SHFTX),TF2,SFe,GF9,IM5, OF >0S,ALUZ=>SHF IDF; \ 
CLB1,FF9,WRI,WF1,8B5,AAE NO ALUZ@=>0F (ALUSTAG+6HASE),=>SHFIX 

GMSK /NC(SHIFTS),LB2,RF3,FFA,MKFFCO LOW 6 (DISP) => OPR 


EVEN 

GEN /NCSHFTX1)-IM1,WF1,AAS WALTCINDEX), 12705 
GEN /NC(SHFTX2),LB1,FFA,MFi1,WR1,881,AA1 MIR => R(1) 
GMSK /N(SHIFT3),LB3,RF3,FFB,MKFFCO,AK1 LOW 6 (R(1)) => OPR 
SHIFTS DOESS *OPR -> R(1) AND SHFT, SAMPLE ALU CONDITIONALS. 
GEN /FC(SHFTL),2(1),FSF,GF2,L61,RF2,FF6,CF5,WR1,SH1,AA1 


SHIFT INSTRUCTIONS COME HERE WITH THE NEGATIVE OF THE SHIFT 
COUNT IN THE SHIFT COUNT REGISTER AND R1, NO SHIFTING IS DONE 
IF THE SHIFT COUNT IS ZERO, 

SHFTL AND SHFTR MUST BE KEPT TOGETHER’: THEY ARE FIELO SELECT 
ADDRESSED, SHFTL AND SHFTR DO THE SAME THING TO LEFT AND 
RIGHT SHIFT INSTRUCTIONS RESPECTIVELY: RB->OPR, INCP, 

FIELD SELECT (796) .IF: NOT ALUZ, SFCP) IF ALUZ, 


EVEN 

GEN /S(SHFTLO,SS3MX),2(03),FSAre-TF3,S5SF5,6F9,I1M8,RF7,AAB Ler ft 

GEN /SCSHFTRO,SHFTRX),2(03)-,FSA,TF3,SF3,GF9,IM8,RF7,AAB RIGHT 

MORG 16 SHFTLO-SHFTLS REF BY CND FSEL FROM SHFTL 

GEN /T(*,SHFTLX),TF3,GFC,LAe@-RFS,WR1,VF1, SHIFT RA LEFT 
CAAA 

GEN /TC(CSHFT11,SHFTLO),TF2,GFF,FFC,CF3,WR1, TEST WS, 
CAAE REtRE +] => RE 

GEN /T(*,SHFTLX),-TF3,GFC,LAe@sRFS,WR1,SC1, SHIFT RA&OPR LEFT 
CVF 1,XF53,SH2,AAA 

GEN /T(SHFT31,SHFTL2),TFe,GFF,FFC,CFS3,WR1, TEST QS, 
CAAE REt#RE+1] => RE 

EVEN 

GEN /NC(SHFMSK),LB1,FFA,MF1,WR1,AAS8 OPR => RB 

GEN /NCSHFT12),WF1,AAA RACS) #205 

GEN /T(SHFT13,SHFOR1),TFS5,GFF,CF3,WR1,AAL Ritier>R1,TEST GS 

GEN /TC(SHFT12,SHFMR1),TFS,GFCeLA2,RFS,WR1I, RACLJ@>RA,INC SC, 
CWrF1L,AAA ALUSe?S, TEST SC 

GEN /NC(SHFT32),WF1i,AAA RA(S)#>G5 

GEN /TC(CSHFT33,SHFOR1),TF3,GFFeCF3,WRI1,AAL RKitierm>R1,TEST OS 

EVEN 

GEN /N(SHFMR1),FFF,WR1,AAL RjieLe>R1 

GEN /TCSHFT31,SHFMR1),TPF3,GFC,e,LA2,RF5S,WRI, SHFT RASOPR LEFT, 
CXF 3,SC1,SH2,AAA TEST SC,INC SC 

EVEN 

GEN /NCSHFTBS),VF1i,AA1 R1(€15)->056 

GEN /N(SHFTM),AAE,LAS»/FFO,IM/,SFe2 RE/2@, 1 => BYTE A 


SS3MX IS IDENTICAL TO SS3M BUT IS PLACED HERE DUE TO 
ADDRESSING RESTRICTIONS, 


EVEN 

GEN /NCINTBAS) ,1(X'"F) »GF5,1M6 

GEN /NC(SHFTLX),IM1,FF6,CF3eWR1,SH1,881,AA1l WALT(M),“R1=>R1 
MORG 16 SHFTRO*SHFTR3 REF BY CNO FSEL FROM SHFTR 
GEN /T(*)SHFTRX),TF3,SF3,GFC,IM8,LA3,RFS,WR1,SH4,AAA 

GEN /T(*,SHFTRX),TF3,SF3,pGFC,IM8,LA3,RF5S,NR1,SH4,AAA 

GEN /T(*,SHFTRX),TF3,SF3,GFC+IM8,LA3,RF5,» 


CWR1,SC1i,WF1i,XF1,SH2,AAA 


t i F i { 
t } 
| I a i g i “ Z x | 


i 
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Q0E3 


Q0E4 
Q0ES5 


00E6 
Q0E7 
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27183F041D01AB0A 


F500014320A90008 
3758328065AF7FFO 


0530040420110008 
0530040420790008 


SNYDER 


352 
255 
954 
555 
356 
957 
958 
559 
360 
561 
362 
563 
564 


VORTEX MIDAS 


SHF TRS 


+ + & 


SHF TRX 
SHFMSK 


SHF ARG 
SHFCOM 


GEN /T(x%,SHFTRX),TF5,SF3,GFC,1M8,LAS,RFS, 
CwR1,SC1,WF1,XF1,SH3,AAA 

SHFTRX IS SIMILAR TO SS3M, AND IS PUT HERE DUE TO 

ADDRESSING RESTRICTIONS WHEN USING CONDITIONAL FIELD SELECTION, 

IN ADDITION TO EVERYTHING THAT SS3M DOES, SHFTRKX DOES: OPR=>RB, 

SHFTRX IS ALSO USED BY THE MULTIPLY ROUTINE, 


EVEN 

GEN /NCINTBAS),1¢°X'F),GF5,IM6,LB1,FFA,MF1,WR1I,AAG 

GMSK /T(SHFCOM,SHFARG),TF3,GFA,LB5,KF3, CARRY MASK (X'80Q) 
CFFA,MKF7FF => OPR 

EVEN 

GEN /N(SS3M),SF1,1M8,LB1,FF1,WR1,AAB IF(P), CARRY = 1 

GEN /N(SS3M),SF1,IM8,LB1,FF7-MF1,WR1,AA8 IF(P), CARRY = 0 
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QOES8 


Q0E9 
QOOEA 
Q0EB 
QOEC 
Q0ED 
QOEE 
QOEE 


OOEF 
O0FO 


OOF 


00F2 
OOF 


QOF4 
O0FS 
QOF6 
Q0F8 


O0F9 
QOOFA 


QOFC 
OOFD 
OOFE 
QOFF 
0100 
0101 
0102 
010% 
Olo4 


0105 
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052802802091 001A 


57582E4280060001 
0758000080000000 
671 3C000A0A9001E 
0768008020910018B 
05280280009300EA 
07780080206700156 


078002800063500EA 
OBLBOOD0063AF7FFO 


F500014320B9001A 


0798000088660000 
0520040201060001 


O7AB0N00020A9201F 
47B023COD0000400A 
07CQOD00000067 01FF 
67C82280006701FE 


07000086000670186 
O7TEDOODVD0063S01AA 


O7TEBDDBDD09LND0EA 
7T7FB21C062A000F 0 
O7F8048020E90008 
0808000003000008 
O81L000800000000A 
08083320159192FA 
2818210000000000 
082000000091 00FA 
3828328000000000 


483623C000A900AB 


SNYDER 


366 
567 
368 
569 
970 
571 
aft 
a12 
574 
3975 
976 
577 


VORTEX 


e 


* > * + & HH 


ADSDe 


ASDODD 
ADSDS 


ADG 
ADS 


S04 


MIDAS 


THE FOLLOWING STATES CANNOT BE IDENTIFIED AS BELONGING TO ANY 
SUBROUTINE OF SIGNIFICANT SIZE. 


ADDRESSES ARE (MOSTLY) IN ALPHABETICAL ORDER, 


GEN 
GEN 


EVEN 
GEN 
GEN 


MORG 
GEN 
GEN 
ORG 
GEN 


GEN 
GMSK 
GEN 


GEN 
GEN 
GEN 


/N(SS2MS),GFA,LB1,FF9,WR1,861,AAA 


RA+MIR => RA, 
SAMPLE OFL & COND 


/T(ADSD3,ASDODD),TF2,SF3,GF9,IMS5,CFS, Riti, CND OF CALU) 


CAA] 


/NCAD0SD3),IM1 
/F(AD4),2(2),FSF,IM1,LB1,FFA,MFI1, 
ean BB1,AAE 


WAIT (MEM) 
FS(i2), 
WAILT(MEM), MIR@>RE 


AD4, SD4 REF BY FSEL FROM ADSDS 


pe re GF2,LB1l,FF9,WR1,861,AAB 
/N(SS2MS), GFA, FF9,CF1,WRI, BBE, AAA 
AD4+e 
/N(S$05),GFe2,LB1,FF6,-CF3,WR1,381, 
Ce4(EXxT) 
/N(SD6),GFA,FF6,CF1,WR1,23(W1), 
C24(ACC) 
/N(83),LB3,RF5,FFA,MKF7FF 
/NCINTBAS),1¢°X'F),GFS,IM6,-LB1, 
CFFB,MF1,WR1,861,AAA 


/N(BSI35),1IM1,LA1,FF6,CFS5 

/N(SS2M),SF1,1M4,RF1,CF3,AA1 

/NC(DIV2),-LB1,FFA,MF1,WR1,WF1,881, 
CAAF 

/TCOIV3S,DIV4),TF2,GFF,VFIrAAA 

/NCDIV4),FFO,CF3,WR1,SH1,8BF,AAF 


/T(DIVS,O1V7),1TF2,GFA,FFO6,CFS, 
CWR1,SH1,BBF,AAE 

/N(DIV6),GFe2,FF6,CF3,WR1,5H1,886, 
CAAB 

/NCDIV7),FF6,CF1,WR1,SH1,B5A,AAA 


/NCDIV8),GFe,FF9Y,WR1,BBE, AAA 
/TCDIViIO,DIV9),TF2,GF7,-LBS,RFe, 
CFrA,™MKF 


/N(DIV10),SF1,GFe,LB1,FFE,MF1, 
CWR1,24(STAT) 

/NCOIV11),RF3,AAB 

DiVii & DIV1ie MUST HAVE SAME 

/NC(OIV13),GFe,AAA 
/TCe,DIVIe), TF 3,GFC,MR1I-LA2,RFS, 
CFF9,WR1,SC1,XF2,SHe2,BBF,AAA 
/T(OIV1I4,01V15),TF2,GF7 
/NC(DIV15),FF9,WR1,BBF,AAA 


/TCOIV16,01V17),TF5,GFA 
/TC(OIV18,O01V19), TFA, GFFeFFA,MF1, 
CWR1,6BA,AAB 


/T(DIV18,DIV19),TF3,GFF,FF6,CF3, 


B+MITR#>B,SAMPLE 
AtE+CRY*>A,SAMPLE 


EXT=MIR=>EXT,SAMPLE ALU 


ACCewW1itCRY=>ACC, 
SAMPLE ALU & OVFL 
X'BOY=>0PR 
RAMIR@#>RA,I[SK->l1, 
SEL & RESET INT FLAG 
WALT (MEM),P*RO => ALU 
IFCALU) + Ritl => P 
MIRe>RP pMIRS=205 


RA(15)*>DS68,TEST QS 
“RF => KF 


eRF => RE, 
TEST OSB 
“RB => RB 


mRAtCARRY 2A 


RA+RE=>RA, SAMPLE 
=15 => CNT, TEST ALUS 


OPR V STAT => STAT, 
SET OVERFLOW 

RB => OPR 
HIGHeQRDER BITS 

RA => ALU, SAMPLE 
DIVIDE STEP 


TEST ALUS 
RA+RF > RA 


TEST. NO DSB 
RA => RB 


“KA => KB 


, > : ss a3 4 oS — 7 ah oi aah S: os <3 = . r / od , : = ee = = = 7 £ x - J > oI ™ 
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0106 
0107 
0108 
0109 
O10A 
0108 
010C 
10D 
O10E 
O10F 
0110 
O114 
0112 
0113 
0114 


0116 
0117 


0118 


O11A 
0118 


O11C 
0110 


Q11E 
0120 
0121 
0122 
0123 


0124 


0125 


0126 
0127 
0128 


0129 
O12A 


0128 


i7) «6009/10/77 
483833C0006701AB 
055004042467010A 
O5S50040424A9000A 
0850008060701008 
6658324000000000 
0530048404000000 
0530050404000000 
F50001432069001A 
O8780402E09FFF71 
0880000080A90091 
0888000020890011 
0890040301900001 
084804040400000D 
F500014320A9001A 
38882E 42800600001 


0888000080000000 
OSCOQQDDADASDOIA 


0530040424A90016 


6889008000500000 
6889008000360000 


08F 0050404000000 
08F 0048404000000 


F500014320A90038 
0920040320900050 
0910040404A90091 
0918000025B90011 
0900040280910001 
2550270424A80010 
O98AF 30023890011 
0928000080A90091 
494622404S5AFC000 
0950040320900050 


0980000023B80049 
0530040424A80040 


390AF24062A00010 
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625 
624 
625 
626 
6e7 
628 
629 
630 
651 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
646 
649 
650 
651 
65e 
653 
654 
655 
656 
657 
656 
659 
660 
661 
662 
6653 
664 
665 
666 
667 
668 
669 
670 
671 
67e 
673 
674 
675 
676 
677 
678 
679 
680 


VORTEX 
DIV1i8 GEN 
EVEN 
DIV19 GEN 
ENTR GMSK 
ENTR1 GEN 
ENTRSO GEN 
EVEN 
ENTRRO GEN 
EQRe GEN 
* 
INTENO GMSK 
INTEN1 GEN 
INTEN2 GEN 
INTENS GEN 
INTEN4Y GEN 
LDA2 GEN 
LODe2 GEN 
EVEN 
LODODD GEN 
LDDS GEN 
LDO4 GEN 
EVEN 
LOSRC GEN 
LOSSC GEN 
EVEN 
LOSRO GEN 
LOSSO GEN 
LDSX GEN 
MORG 
LXLXNI GEN 
LOXLXI GEN 
LOXLX1 GEN 
LOXLX2 GEN 
LOXLXR GEN 
LXLNX1 GEN 
EVEN 
LOXLNX GEN 
LOXS1 GMSK 
EVEN 
LOXSX GEN 
LOXSP GEN 
LOXSX1 GEN 
x 
LOXL1 GMSK 


MIDAS 


CWR1,5H1,BBA,AAB 
/N(SS3M),SF1,1M8,LB1,RF4,FF6,CFS, =OPRe>RA,ITF(P),INCP 
CWR1,SH1,AAA 


/N(CSS3M),SF1i,IM8,LB1,RF4-FFA,MF1i, OPR=>RA,IFCP),INCP 
CWRI,AAA 

/NCENTR1),GFe,LB3,FF7,MK0100,AK8 RB&X'0100 => ALU,SAMPLE 
/TCENTRSO,ENTRRO),TF3,GF9 TEST ALUZ 
/N(SS3M),SF1,GF2,1M8,RF4 SET OVFL,IF(P),INCP 


RESET OVFL,IFC(P),INCP 
RA EUR MIR => RA, 
IBRe>IT,VECODE,EN INT, 
SEL&RESET INT FLAG 
R1i+8=->ALU, OF (ALU) 


/NCSS3M),SF1,GF4,IM8,RF4 
/NCINTBAS),1¢°X'F),GF5,IM6,-L61, 
CFF6,MF1,WR1,BB1,AAA 


/NCINTEN1),SF1-IM5,LB3,FF9, 
CMKFFF7,AK] 
/NCINTEN2),IM1,FFA,MF1,WR1,889,AA1 WAITC(MEM), RO=>RI 
/NCINTENS),LBI1,FFB,MF1,WR1,881,AA1 MIR,R1I=>R1 
/NCINTEN4S),SF1,IM6,RF1,FF9,AA1 R1+#RO=->P,OS(ALU) 
/NCENTR),SF1,IM8,RF4,AAD IF(P), INCP, RO#>ALU 
/NCINTBAS),1(°X'F),GF5,1IM6,LB1, MIRe>RA,[BRe>IT,DECODE, 
CFFA,MF1i,WR1,861,AAA EN INT, SEL&RST INT FLG 
/T(LDDS,LODODD),TF2e-SF3,GF9,IMS5S, Rieti, CND OF (ALU) 
CCF3,AA1 


/N(LO03),1M1 WAIT (MEM) 
/N(LODG),IM1,LB1,FFA,MF1,WR1,3881,AAA WALT(MEM), MIRe>RA 
/N(SSS5M),SF1,1M8,RF4,LB1,FFA, INCP,IF(P),MIR@>kB 
CMF1,WR1,661,AAbB 
LDSRC,LUSSC REF BY FSEL 
/F(LOSRO),201),FS4,GFe,FFS RST CRY, SAMPLE, FS5S(0) 
/FC(LOSRO),2(1),FS4,GFe2,FF3,CFS3 SET CRY, SAMPLE, FS(0) 
LOSRO,LOSSO REF BY FSEL 
RESET OVPL, INCP, IF CP) 
SET OVFL, INCP, IF(P) 


/N(LOSX),SF1,GF4,1M8,RF4 
/N(LOSX),SF1,GF2,IM8,RF4 
/JNCINTBAS),1¢0X'F),GF5S,IM6-LB1, STAT#>R8,1BRe->I,DECODE, 
CFFA,MF1,WR1,8B3,AA8 EN INTe SEL&RST INT FLG 
16 LXLANI, LOALXE REF BY CND FSEL FROM LOXALI 
/NC(LOXLXR),SF1,1M6,LB1,FF 9,885 OLSE+RO > ALU, OSCALU) 
/NCLOXLX1),SF1,IM8,RFG,FFA,MF1,WR1, R9">R1,1NCP,IF CP) 
CBB9,AAI L-2 
/NC(LOXLX2),LB61,RFS,FFB,MF1,WR1,8B1,AA1l MIR,R1->R1,ITNC CNT 
/NCLXLXNI),SF1,IMS-FF9O,WR1,AAL RitRO=>R1, OF CALU) 
/T(SS3M,SS2M),TF2,SFi1,GFC,IM8,L6B1, TES] SHFT CNT, 
CRF4,FFA,MF1,6B1 MIR=>R1,INCP,IF (P) 
/S(LOXPJ,LOXPJ),2(1),FSB8-TF3,GFC,LB1, TEST SHFT CNT, 
CRFS,FFB,MF1,WR1,B8B1,AA1 MIR.R1->R1,U0PR 


/NCLXLNX1),IM1,FFA,MF1,WR1,6889,AA1 
/TCLDXSP,LOXSX),TF2,GF9,LBe,FFA,RFS, 
CMKFCOO 


WAIT(MEM), RY#>R1 
TAG & DVISP => OPK 


/NC(LDXSX1),SF1,IM6,-LB1-FF 9,885 OLSE+RO => ALU, OSCALU) 
/NC(LOXPJ),LB1,RF3,FF3,MF1,884,AA9 ORSE.RY*>0PR (WRAP) 
/N(SS5M),SF1i,1M6,LB1,RF4,FFA,MPF1,B84 ORSE*>ALUCFOR 05), 
INCP, IF (P) 

CND FSEL(7) 

72 => CNT 


/S(LXLXNI,LOXLNX),2¢01),F58,1F3,GF9, 
CLB3,RFe2,FFA,MKI 


| 
| 
| 
| 
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0130 


0131 
01302 
013% 
0134 


0135 
0136 
0137 
0138 
0139 
Q13A 
0138 
013C 
0130 


O13E 
Q13F 


0140 
0141 
0142 
0144 


0145 


0148 
0149 


O14A 
0148 
014C 
0140 


O1L4E 


O14F 


0150 


0152 


0153 


0154 
0155 
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0520040221900000 


0930040265900001 
0998040201000000 
09A0000000A90019 
0848000000010108 


09B800404A4A90010 


O9BBN40424A9201E 
0900000023A80010 
O9CBOD0D0000FLOOOE 
09D000000801L000F 
0908000081F 04000 
09£8000020A90000 


0A580000A0A80000 
T9FBS7TC4A4AB0000 


0408008080F 10000 
OAQ0008000F 10000 


4A5039C30007000E 
0410000023A80010 
0420000062A00030 


2428230005008000 


GA4B39CS0007000E 


016809020106000F 
69E8328020A80000 


69E8328023A80010 
0A28008000F 10000 
OAG8D00000039800E 
OATNDDD0E2ADND0ED 
OA7TBN00020A9001F 
OABDD02Z000S9A0N0A 


QAIDDD02Z0059LAB0A. 


LA98235201D91AB0A 


CAABS2ABNIBOLABDA 
OAABDD0D0006700FA 


O72004041CO01AA0A 


SNYDER 


661 
682 
683 
684 
685 
686 
687 
688 


VORTEX 
MORG 
LOXPJ GEN 
* 
LXLNXI GEN 
LMODE2 GEN 
LMODE3 GEN 
LMODE4 GEN 
MBM1 GEN 
MBMe GEN 
MBMX GEN 
MBM3 GEN 
MBM4 GEN 
MBMS GEN 
MBM6 GEN 
EVEN 
MBM11 GEN 
MBM7 GEN 
EVEN 
MBM1ie- GEN 
MBM8 GEN 
MBM9 GEN 
MBM13 GEN 
MBM14 GMSK 
EVEN 
MBM15 GEN 
MBM16 GEN 
MORG 
MBM18 GEN 
MBM17 GEN 
MBM10 GEN 
MBM19 GEN 
MULe GEN 
MUL 3 GMSK 
MUL4 GEN 
MUL5 GEN 
~ 
MUL®6 GEN 
EVEN 
MUL7 GEN 
3 
k 
MUL& GEN 
EVEN 
MUL9 GEN 
MUL10 GEN 
ORe GEN 


MIDAS 


16 LOXPJ, LXLNXI REF BY CND FSEL 


/N(SS2M),SF1,1M4,LB1,RF ie rF9 


/NCLOXLNX),SF1,IM5,RFS,FF9,AAL 
/NCLMODES),SF1,IM4,RF] 
/NCLMODE4),FFA,MF1,WR1,8B81,AA9 
/NCENTR) »~WR1,SH1,AA8 
/N(MBM2),SF1,IM9,LB1,RF4O,FFA,MP1, 
CWR1,861,AA0 
/N(MBMX),SF1,1M8,LB1,RF4,FFA,MF1, 
CWR1,WF1,BB1,24(W1) 
/N(MBM3),LB1,RF35,FFA,MF1,6B1 
/N(MBM4),FFF,WR1,24(W1) 
/NC(CMBM5),LA1-WR1,24(We2) 
/N(MBM6),IM1,RFL,FRFF,VF1,AA0 
/NC(MBM7),LB1,-FFA,MF1,WR1,BBO,AA0 


/N(MBM19),IM1,LB1,FFA,MF1 
/T(MBM8,MBM12),TF3,SF1,GFF,IM9, 
CLB1,RF4,FFA,MF1,BB0 


/N(MBM13),GFe,IM1,FFF,WR1, AAO 
/N(MBM9),GF2,FFF,WR1,AA0 
/T(MBM10,MBM16),TF3,-SF2,GF7,IMo, 
CCF 3,WR1,24(W1) 
/N(MBM14),L81,RF3,FFA,MF1,8bBi 
/N(MBM15),LB63,RF2,FFA,MKS3 


/T(MBM16,%*),TF2,GFC,RF5,5C] 
/T(MBM17,MBM18),TF3,SFe,GF7,IM6, 
CCF S5,WR1,24(W1) 

4 


/P(VSS3M),SF2,GF4,I1M4,RF1,CF3, 
Ce4(we) 
/T(MBM7,MBM11),TF3,GFA,LB1, 
CFFA,MF 1 
/T(MBM7,MBM11),TF3,GFA,LB1,RF3, 
CFFA,MF1,661 
/N(MBM16),GF2,FFF,WR1,AAQ 
/N(MUL3),FFS3,MF1,WR1,SC1,AAE 
/N(MUL4),IM1,LB3,RFe,FFA,MKOOOE 
/N(MUL5),LB1,FFA,MF1,WR1,BB1,AAF 


/N(MUL6),MR1,FF3,MF1,WR1,SC1,WF1,AAA 


/NC(MUL7) /-MR1,RFS,FF9,WR1,SC1,WF1,XF1, 
INC CNTR 


CAAA RT OPR, OPR(1)"*>BAD(0), 


/T(MUL8,*),TFe2,GFC,MR1,-LAS,RF5S,FFOS, 
MUL SIGNe> DLAC1I5), RT A, RI OPR, 


CWR1,SC1,WF1,XF1,AAA 


OPR+ROQ=>P,IF CALU) 
RitKQ->ALuU 
INC CNT, OFCALU), 
ROw>P, IF CALU) 
R(C1) => R(9) 

0 => RB 

AF (P),INCP,MIR=>RO 


IF (P),INCP,MIR=->W1, 
ALUC15)=>G8 
MIR=>0PR 

Wiel=>Wl 

Per>We 
ROw1Le>P,R0O(15) ->056 
OPR->RO 


WAIT (M) ,OPRe>ALU 
OF (CP), INCP,OPR=>ALU 


WAIT(M) »RO#1L">R0O, SAMPLE 
RO@=Le>kK0,SAMPLE ALU 
CNDOC(NO ALUS) OS(ALU), 
Nitle->Wl 

MI R=>OPR 

wG=>SC 


OPR(L),INC SC, Test sc 
CNDOCNO ALUS) OSCALU), 
A1+tl=->wW) 


IF CALU) pWet1=>P 
OPRe>ALU, TEST O0S6 
MIR=>OPK,TEST 058 


RO=1->R0,SAMPLE 
O->E,LEFT CIRC OPR 
w14=>CNTR, WAIT(M) 
MIR=>F 

Q->A,CRC RT OPR, 
OPR (1) ->6AD (0) 
A+(E OR F)@>A, 


A+(E OR F) => A, 


DFA(O)*>OPR(15)-, OPR(1)->BAD(0), 


INC CNTR, 


/TC(MUL10,MUL9),TF3,GFA,LAS,WR1,SC1, 
RT OPR, DFAC0)=>0PR(15), DSB=>MULY 


CWF1,XF1,AAA 


/N(MUL10),FF6,CF3,WR1,BBF,AAA 


/N(SHFTRX),SF1,IM6,/LA3,RF4,WR1,SC1, 
RT OPR, DFA(0)*>OPR(15), INCP, IF(P) 
RA OR MIR ©>RA, IBR=>I, 


CWF1,XF1,SH2,AAA 
/NCINTBAS) 1(K'F) /GF5S,IM6rLB1, 


TEST CNTR = #1] 
RT A, MUL SGN#>A15 


AwFerA 
RT A, AlS->A15, 
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F50001432011 001A 
OACQODODD0A0AIDNDE 
0AC80000635A00770 
OADDDDDDE2ADDOFO 
OAEDQNN002Z0A9201F 


0168090404000000 


0AE8008023960100 
TAF 83FC300000002 
0AF8000080000001 
0808330005070002 
0AC804028007000E 
640822401001200F 
0B1802802067001A 
0820040424A90038 
F500014320690008 


OBSQO00008000000A 
OBS8008060BFFFE1 


25502E4300060001 
OSS004040400000A 
0850000023A80050 
085800001800A005 
086000000000B000 
086800000000B000 
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VORTEX MIDAS 
CFF1,WR1,B8B1,AAA DECODE, EN INT, 
* | SEL & RST INT FLG 
PSCANe2 GEN /NCPSCAN3),-LB1,FFA,MF1,WR1,AAE OPRe>RE 
PSCAN3 GMSK /NCPSCAN4),LBS,RFS,FFA,MKOOT7 =120">0PR 
PSCAN4 GMSK /N(PSCANS),IM1,LB3,RF2eFFA,MKOQOOOF #-16">5SC, WAIT(M) 
PSCANS5 GEN /NC(PSCAN6),LB1,FFA,MF1,WRI,WF1, MIR=>RF, ALUC15)=2>G05 
CBB1,AAF 
® PSCANX AND PSCAN6 MUST HAVE THE SAME 5 HIGHeORDER BITS 
PSCANX GEN /P(VSS3M),SFe,GF4,1M8,RF4 INCP, IF (P) 
EVEN 
PSCAN6 GEN /N(PSCAN7),GF2,LB1,RF3,FF9,CFS, OPR+1">0PR, SAMPLE 
CSH1 
PSCAN7 GEN /TCPSCAN9,PSCANS),TF5,SF5,GFF, OSCALU) IF GS, ReerAlLu 
CIM6,AA2 
EVEN 
PSCAN8S GEN /NCPSCAN9),IM1,AA1 WALT (CM) ¢R1=>ALU 
PSCANS GEN /TCPSCANB,PSCANA),TF3,GFC,RF5, Retiw>Re, INC SC 
CCF 3,WR1,AA2 
EVEN 
PSCANA GEN /NCPSCANG),SF1,1IM5,CFS,WR1,AAE RE+1=>RE, OF CALU) 
PSCANB GEN /TC(PSCANX,PSCAN6),TF2,GF9,LA?, RF (CLJ*>RF, ALUC15) "205 
CWR1,WF1L,AAF 
Se GEN /N(S3),GFA,LB1,FF6,CF3,WR1,831, ACCeMIR=>ACC, 
C24( ACC) SAMPLE ALU & OVFL 
$3 GEN /N(S4),SF1,1IM8,LB1,RF4,/FFA,MF1, INCP,IF(P),SREGe>STAT 
CWR1,8B3,24(STAT) 
$4 GEN /NCINTBAS),1(0X'F),GFS,IM6,LB1, STAT XORK OPR => STAT, 
CFF6,MF1,WR1,8B0,24(STAT) SEL&RST CINIF, I[BRel, 
k ENABLE INTS, DECODE 
STDe GEN /NC(STO3),IM1,AAA WAIT(MEM), RA@=>ALU 
STD3 GMSK /N(ST04),GF2,LB85,FFB,MKFFFE,AK1 Rlel, SAMPLE 
STD4 GEN /TC(STDEVN,SS2M),TFe,SF3,GF9,IM6, Rieti, 
CCFS3,AAL CND OSCALU) (ALUZ) 
STO2 GEN /JN(SS3M),SF1,IM8,RF4,AAA INCP,IF(P),A*>ALU 
STS1 GEN /N(STS2),LB1,RF3,FFA,MF1,865 ULSE=>0PR 
* (OVFL*>LOe"0RD BIT) 
STSe GEN /N(STS3),LAS,SC1,WF1,AA5 OVFL=>OPR SIGN, 
x 1->BYTA 
STS3 GEN /N(STS4),SC1,WF1,XFe OVFLe2OPR SIGN, 
* CARRY=>OPR BIT 1 
STS4 GEN /NCSTS5),SC1,WF1,XF2 OVFL=20PR SIGN, 
4 CARRY#>OPR BIT Q 
STS$5 GEN JN(STS6),SC1,WR1,SH1,AA8 OVFL=>OPK BIT O, 
* CAKRY#>0PR BIT 1, 
x QOw->RG (STATUS) 
STS6 GEN /F(STSS1),2(1),FSE,LB1,FFA,MFi1, OPKe>RE, FSEL (C10) 
CWRI,AAE 
EVEN 
STSS1 GETTAG SHORT 
STSL1 GETTGL LONG 
STS8 GMSK /N(SS3M),SF1,IM8,RF4,LBS,FFB, INCP, IF(P), 
: CMKFFFC,AKE Ree S">ALU 
STXL14 GEN /N(STXL2@),LB1,FFA,MF1,WR1,BB1,AA1 MIR => R1 
STXL2 GEN /NCSTXL3),FFB,MF1,WR1,8B9,AA1 RIOR ->R] 
* STXL3 DOES: TEST ALUZ: T=> STXLP# FE> OF COLSE+RO)-FSEL(7) ->S5TXLX 
STXL35 GEN /S(STXLX,STXLP)-2(1),F58,-TF3,SF2,6F9,IM5,-LB1,FF 9,885 
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VORTEX MIDAS 
MORG 4 STXLR, STXLI, STXLPL REF BY FSEL 
STXLR GEN /NC(STXLR1),SF1,IMo,FF9,AA1L OSCALU), R1I+R0 
STXLI GEN /NCSTXLI1),-IM1,FFAeMF1,/WR1,889,AA1 WALT(MEM), R9@>R1 
STXLPI GEN /NCSTXLI),SF1,IM5,;FF9,WR1,AAL OF CALU), R1ItRO->R1 
STXLI1 GEN /NCSTXLR),-LBI,FFB,MF1,WRK1,861,AA1 MIR.R1i=>R1 
MORG 16 STXLX, STXLX1 REF BY CND FSEL 
STXLX GEN /N(STXLX2),IM1 WALT (MEM=INDEX) 
STXLX1 GEN /NCSTXLX2),SF1,IMS,FF9,;WR1,AAI OF CALU), RI+RO#>Ri 
STXLX2 GEN /FC(STXLR),2(1),FSB,-LBi,-RFS5,FFA,MF1,881 MIR=>OPR, FSEL(7) 
« NOTES DON'T START MEMORY AT STXLRI, LET MPLE SETTLE. 
STXLR1 GEN /N(SS2M),LB1,FFA,MF1 OPRe>ALU 
* STXLP MUST HAVE THE SAME HIGH*ORDER 5 BITS AS STXLX 
EVEN 
STXLP GEN /FCSTXLR),2(2),FSA,LAIL,/RFS,FF6,CF3 PeRQ=20PK, FSEL(7) 
STXS1 GMSK /NCSTXS2),LB2,FFA,RF3,MKFCOO TAG & DISP => OPR 
* STXS2 DOES$ ROFOLSE => ALU, OFCALU) IF NOT ALUZ 
STXS2 GEN /T(STXS3,STXS3),1TFe,SFee-GF9,IMS,L61,FF 9,885 
EVEN 
STXS3 GEN /NCSTXS4),LA1L,-FF6,CF3,WR1I, AAI P-KQ=>R] 
STXS4 GEN /NCSTXS5),LB81,RF3,FF9,884-AA1 RI+tORSE>0PR 
STXS5 GEN /N(STXS6),LB1,RF3,FFB,MF1,AA9 OPK .R9Y=>OPR 
STXS6 GEN /T(STXSP,STXSX),TF2,SF1,GF9,IM6,L81, OPR+K0-2>0PR, 
CRF3,FF9 OS(ALU) 
x NOTES DON'T START MEMORY AT STXSP OR STXSX, LET MPLE SETTLE. 
STXSP GEN /N(SS2M),RF3,AA1 R1l*>0PR 
EVEN 
STXSX GEN /N(SS2M),LB1,RF5,FFA,MF1,B661 MIK=>0PR 
XLATE1 GEN /NCXLATE2),SF1,1M5,RF1,AA1 OF CALU),Ri=>P 
XLATE2 GEN /NCXLATE3),SF1,1M9,RF4,FF3,MF1, OF (P),1INCP,0->R] 
CWR1,AA1 - 
XLATES GEN /NCXLATE4),LB1,RF2,FF6,881,SH1 eMIR=1">SC 
MORG 4 
XLATES GEN /P(VSS3M),SF2,GF4,1M4,RF1,CF3, IF CALU) pW2+1">P 
C24(We) 
XLATE4 GEN /TCXLATE6G,XLATES),1TF3,GFC,IM1, WAIT(M),INC SC,R1I+1->k1 
CRFS,CF3,WR1,AA1 
XLATE6 GEN /NCXLATE7),GFe,LB1,FF6,CF 3,851 RO#MIR,SAMPLE 
XLATE7 GEN /TCXLATES, XLATES),TF3,SFe,GF9, CNOCNU ALUZ) OF (P),INCP 
CIM9,RF4 
X102 GEN /NCE620MV),LB1,FF7,MF1,WR1,24 (ADDR) MAKE ADURESS EVEN 
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VORTEX 


STEP KEY DETECT, 


GEN 
GEN 
GMSK 
GEN 
ORG 
GEN 


MIDAS 


ENTER 620 HALT LOOP 


/NC(STEP2),FF6,CF3,WR1,880,AAD 
/NC(STEP3),RF1,AAC 
/N(STEP4),RF3,LB3,FFA,MKFFFA 
/PC(X'TFF),IM3,LB1,FFA,MF1,WR1,AAC2 

X' LPP STEP INTERRUPTS TO HERE 
/NCSTEP1)-LAL,RF1,FFF,WRI,AAD 


RD-RO->RKD 
RC->P 
S*>O0PERAND 
OPERAND=>Re 


Pej =>P,RD 
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SYMBOLS 


0030 
QO0ED 
Q0E9 
0079 
0029 
00F2 
Q0A9 
0084 
008D 
0085 
9100 
0106 
00F8 
OOFE 
QOAC 
010C 
007C 
00A2 
O10F 
0038 
0114 
0072 
0118 
0126 
0130 
O12A 
0133 
9096 
0120 
Q13C 
0145 
0138 
O13F 
00Be 
00Ce2 
00B6 
005C 
00B0 
014C 
0152 
0040 
0000 
0158 
O1SE 
0003 
0164 
0067 
Q0DC 
0008 
Q0CE 
00D4 
00Ee2 


Q0CC 


0099 
009F 


Al 

ADS 
ADSDe 
ANDL 
BSC1 
BSTe 
CBL1 
CTEST4 
CTSTIA 
CTSTSA 
DIVie 
DIV17 
DIV4 
DIV9 
E620 
ENTRRO 
EORS 
INTe 
INTEN( 
LDA 
LDDe 
LODS 
LOSSC 
LOXLNX 
LOXPJ 
LOXSX1 
LMODE3 
LONGX 
LAXLXNI 
MBM11 
MBM16 
MBM3 
MBM8 
MOXC1 
MDXC6 
MOXNI 
MOXS 
MDXXS1 
MUL2 
MUL7 
OP00S 
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00E8 A2 000A 
0001 ADDR 0090 
0OEB ADSD3 0061 
0078 ANDS 0060 
00A8 BSC2 0053 
00F3 BSI3 0051 
0080 CBS 008A 
0082 CTESTS 008C 
0088 CTST2A 0089 
0035 D1 OOF4 
0102 DIVi3 0103 
0107 DIVi8 0108 
OOF9 DIVS OO0FA 
0040 DJUMP 0068 
OOAD E620M1 OOAE 
010B ENTRSO 003€ 
000B EXT 0400 
0OA3 INT3  00A0 
0110 INTEN2 0111 
0113 LDA2 0071 
0117 LOD3 0118 
0049 LDOSL 011A 
0110 LDSSO O11€ 
0122 LOXLX1 0123 
0058 LOXS 0127 
0092 LGNXI1 0093 
0134 LMODE4 0091 
0097 LONGX1 0098 
0034 Mi 000C 
013E MBMi2 0141 
0149 MBM17 0148 
0139 MBMG 013A 
0140 MBM9 0137 
O0OBF MDXC2 00BE 
00C3 MDXC7 00B5 
00B8 MOXNX 0088 
00B4 MDXSKP 00B1 
00B3 MDXXS2 0069 
014D MUL3  O14E 
0153 MUL&8 0154 
003D OR1 0156 
000C P6é20 0200 
0159 PSCANG 015A 
015F PSCAN9 0160 
0002 RETURN 0032 
0033 SD1 OOEE 
0066 SDS 00E6 
00ES SHFMSK 0005 
00D9 SHFT32 0008 
00D0 SHFTLO 0001 
OODF SHFTM O0OCF 
00E3 SHFTR3 00E4 
0044 SHIFT 00C6 
009A SHORT1 0098 
009D SHRTX1 0065 


VORTEX MIDAS 
END 

ACC 0031 ADI 
ADDREX 0063 ADL 
AL 003C ANDI 
AS QOOEA ASDODD 
BSCL 0052 BSCS 
BSIL 0050 BSIS 
CTEST1 0088 CTESTe 
CTESTF 0083 CTSTOA 
CTST3A OOBF CTST3B 
DIV1 OOFF OIV10 
DIVi4 0104 DIV15 
DIV19 OOFS OIVe 
DIV6 OOFC DIV? 
DL 006A DS 
E620MV 0109 ENTR 
EOR1 010D EORe 
FFP 0005 GETREG 
INTBAS 0004 INTEN 
INTENS O112 INTENG 
LOAL 0070 LDAS 
LOD4 0073 LOOL 
LOSRC 011C LDSRO 
LDOSX 0059 LOXL 
LOXLX2 0121 LDXLXI 
LOXSi1 0129 LOXSP 
LGNXIe 0001 LMODEIL 
LNGNXI 0094 LONG 
LONGXe 0125 LXLNX1 
MBM 0135 MBMi 
MBM13 0142 MBM14 
MBM18 0146 MBM19 
MBMS 013B MBM6 
MBMX 00B7 MDX 
MOXC3 00C1 MDXC4 
MDXC8& Q0C4 MDXCY9 
MOXNX1 O0O0B9 MUXNXe 
MOXXL1 OOBD MDXXLe 
ML 0068 MS 
MUL 4 O14F MULS 
MULY 0020 OPO0DO 
ORe 0078 ORL 
PAGE1 0006 PSCAN1 
PSCANS 015C PSCAN6 
PSCANA 0161 PSCANB 
$1 O16e Se 
S04 QOEF SD5 
SHFARG QOE7 SHFCOM 
SHFT11 00D6 SHFTle 
SHFT33 OODD SHFTBS 
SHFTL1 00De SHFTLe2 
SHFTR QOOEO SHFTRO 
SHFTRX OOCA SHFTX 
SHIFT1 00C7 SHIFTe 
SHORTP 009C SHORTX 
Si 0064 SS 


QOEC 
0062 
OOF 1 
0000 
0028 
0081 
0086 
OO08E 
0087 
0101 
0105 
O0F6 
QOFD 
QO0AB 
O10A 
0070 
QOOAI 
O10E 
QOA7 
0039 
0116 
0045 
0126 
0124 
0126 
013e 
0095 
0131 
O14A 
0144 
0136 
013D 
00Cc5 
00C0 
005D 
OOBA 
O0BC 
0155 
0150 
0041 
QOO7A 
0157 
015D 
0156 
0165 
OOF 0 
O0ODA 
00D7 
00CS 
00D5 
0081 
00CB 
O0CD 
O09E 
00A0 


AD4 
ADS 
AND2 
BASE 
BSI 
CBL 
CTESTS 
CTSTOB 
CTSTGA 
DIV11 
DIV16 
OIV3 
DIV8 
E620! 
ENTRI 
EORL 
INT 
INTENO 
IWAIT 
LOUA 
LODOUD 
LOSS 
LOXL14 
LOXLXR 
LOXSX 
LMODEe 
LONGI 
LXLNXI1 
MBM10 
MBM15 
MBMe 
MBM7 
MDX1 
MDXC5 
MO XL 
MD XP 
MOXXLS 
MUL 10 
MUL6 
OPOOL 
ORS 
PSCAN2 
PSCAN7 
PSCANX 
33 

SD6 
SHFDR1 
SHFT13 
SHF TOF 
SHFTL3 
SHFTR1 
SHFTX1 
SHIFTS 
SHRTP 1 
SS1M 
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00A4 SS2M 0O0AS SS2MS 
0008 STAT 0038 STOD1 
OOAA STDEVN 0077 STODL 
019A STEP2 0198 STEPS 
0075 STOL 0074 STOS 
016cC STS4 0160 STS5 
0048 STSL 04171 STSLI 
0173 STXL1 0174 STXL2 
0184 STXLP O17A STXLPI 
0181 STXLX1 0182 STXLXe 
0188 STXS3 0189 STXS4 
O18E STXSX 0001 VINTI 
O0OF We 004C WAIT67 
0009 WRAP 006C wWT1617 
0198 XI02 0043 XIOL 
0190 XLATE2 0191 XLATES 
0197 XLATE7 

0 ERRORS ASSEMBLY COMPLETE 

/WEQF,BO 

/FINI 


VORTEX MIOAS- 
SS2MK 00A6 SS3M 
STD2 0166 STD3 
STDS  O1FF STEP 
STEP4 003A STO1 
STS1 016A STS2 
STS6 0025 STS7 
STSS 0170 STSS1 
STXL3 0179 STXLI 
STXLR 0183 STXLR1 
STXS 0185 STXS1 
STXS5 018B STXS6 
VSS2M 002D VSS3M 
WAITAB OOSF WAITFL 
WT1FL OO7E WTIFS 
XIOS 000D XLATE 
XLATE4 0194 XLATES 


Q0DE 
0167 
0199 
0168 
0168 
017e 
0056 
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0186 
016C 
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